From: John Paul Wallington <jpw@pobox.com>
Date: Tue, 28 Jan 2003 08:43:41 +0000 (+0000)
Subject: (ibuffer-yank-filter-group): Move check for empty
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~28556
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=110f3f48a87a0646a493574e97d827a02c502d7a;p=emacs.git

(ibuffer-yank-filter-group): Move check for empty
filter group kill-ring out of `interactive' declaration.
---

diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el
index b1f312d376c..4aa1ec0874f 100644
--- a/lisp/ibuf-ext.el
+++ b/lisp/ibuf-ext.el
@@ -688,11 +688,10 @@ See also `ibuffer-kill-filter-group'."
 ;;;###autoload
 (defun ibuffer-yank-filter-group (name)
   "Yank the last killed filter group before group named NAME."
-  (interactive (list (progn
-		       (unless ibuffer-filter-group-kill-ring
-			 (error "ibuffer-filter-group-kill-ring is empty"))
-		       (ibuffer-read-filter-group-name
-			"Yank filter group before group: "))))
+  (interactive (list (ibuffer-read-filter-group-name
+			"Yank filter group before group: ")))
+  (unless ibuffer-filter-group-kill-ring
+    (error "The Ibuffer filter group kill-ring is empty"))
   (save-excursion
     (ibuffer-forward-line 0)
     (ibuffer-insert-filter-group-before (pop ibuffer-filter-group-kill-ring)